home *** CD-ROM | disk | FTP | other *** search
/ CD ROM Paradise Collection 4 / CD ROM Paradise Collection 4 1995 Nov.iso / program / swagd_f.zip / EGAVGA.SWG / 0062_Clear Screen in Mode $13.pas < prev    next >
Pascal/Delphi Source File  |  1993-11-02  |  341b  |  21 lines
  1. {
  2. WILLIAM MCBRINE
  3.  
  4. > I am looking For a Procedure to clear a screen in mode $13.  Writing
  5. > black pixels to each position isn't quite fast enough!
  6.  
  7. This assumes that color 0 is black.
  8. }
  9.  
  10. Procedure clearmode13; Assembler;
  11. Asm
  12.   cld
  13.   mov ax, $A000
  14.   mov es, ax
  15.   xor di, di
  16.   xor ah, ah
  17.   mov cx, 32000
  18.   rep stosw
  19. end;
  20.  
  21.